Golden Years Glow: Navigating Retirement Happiness in the HappyDB Saga
As the discourse on the mental
health of the elderly gains prominence, I delve into the HappyDB dataset
to unravel the nuanced elements that contribute to the happiness of
elderly individuals during their retirement years. Retirement is a
significant life transition, often accompanied by various challenges and
opportunities. Understanding the sources of joy during this period can
provide valuable insights into the well-being of retired individuals and
offer guidance on fostering a happier retirement.This exploration is not
merely an academic pursuit; it’s a deeply personal quest fueled by a
concern for the well-being of my own grandparents.
library(tm)
library(tidytext)
library(tidyverse)
library(DT)
library(scales)
library(gridExtra)
library(ngram)urlfile<-'https://raw.githubusercontent.com/rit-public/HappyDB/master/happydb/data/cleaned_hm.csv'
hm_data <- read_csv(urlfile)corpus <- VCorpus(VectorSource(hm_data$cleaned_hm))%>%
tm_map(content_transformer(tolower))%>%
tm_map(removePunctuation)%>%
tm_map(removeNumbers)%>%
tm_map(removeWords, character(0))%>%
tm_map(stripWhitespace)stemmed <- tm_map(corpus, stemDocument) %>%
tidy() %>%
select(text)dict <- tidy(corpus) %>%
select(text) %>%
unnest_tokens(dictionary, text)data("stop_words")
word <- c("happy","ago","yesterday","lot","today","months","month",
"happier","happiest","last","week","past","im")
stop_words <- stop_words %>%
bind_rows(mutate(tibble(word), lexicon = "updated"))completed <- stemmed %>%
mutate(id = row_number()) %>%
unnest_tokens(stems, text) %>%
bind_cols(dict) %>%
anti_join(stop_words, by = c("dictionary" = "word"))completed <- completed %>%
group_by(stems) %>%
count(dictionary) %>%
mutate(word = dictionary[which.max(n)]) %>%
ungroup() %>%
select(stems, word) %>%
distinct() %>%
right_join(completed) %>%
select(-stems)completed <- completed %>%
group_by(id) %>%
summarise(text = str_c(word, collapse = " ")) %>%
ungroup()hm_data <- hm_data %>%
mutate(id = row_number()) %>%
inner_join(completed)
datatable(hm_data)